home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1999 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'UPTFrame.pas' rev: 4.00
-
- #ifndef UPTFrameHPP
- #define UPTFrameHPP
-
- #pragma delphiheader begin
- #pragma option push -w-
- #include <Menus.hpp> // Pascal unit
- #include <Dialogs.hpp> // Pascal unit
- #include <Forms.hpp> // Pascal unit
- #include <Controls.hpp> // Pascal unit
- #include <Graphics.hpp> // Pascal unit
- #include <Classes.hpp> // Pascal unit
- #include <SysUtils.hpp> // Pascal unit
- #include <Messages.hpp> // Pascal unit
- #include <Windows.hpp> // Pascal unit
- #include <SysInit.hpp> // Pascal unit
- #include <System.hpp> // Pascal unit
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Uptframe
- {
- //-- type declarations -------------------------------------------------------
- #pragma option push -b-
- enum TPTFrameStyle { ptfsNone, ptfsGroup, ptfsLowered, ptfsRaised, ptfsDint, ptfsBump, ptfsSingle, ptfsHorzLine,
- ptfsHorzEdge, ptfsVertLine, ptfsVertEdge };
- #pragma option pop
-
- typedef void __fastcall (__closure *TPTFramePaintEvent)(System::TObject* aSender, Graphics::TCanvas*
- aCanvas);
-
- class DELPHICLASS TPTCustomGroup;
- #pragma pack(push, 4)
- class PASCALIMPLEMENTATION TPTCustomGroup : public Controls::TCustomControl
- {
- typedef Controls::TCustomControl inherited;
-
- private:
- HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &msg);
- MESSAGE void __fastcall CMTextChanged(Messages::TMessage &aMsg);
- HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &aMsg);
- HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &aMsg);
- void __fastcall SetAlignment(Classes::TAlignment aValue);
- void __fastcall SetFrameSpace(int aValue);
- void __fastcall SetFrameStyle(TPTFrameStyle aValue);
- HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &aMsg);
- HIDESBASE MESSAGE void __fastcall WMNcCalcSize(Messages::TWMNCCalcSize &aMsg);
- HIDESBASE MESSAGE void __fastcall WMNcPaint(Messages::TWMNoParams &aMsg);
-
- protected:
- Classes::TAlignment mAlignment;
- bool mDefaultDrawing;
- int mFrameSpace;
- bool mFrameChanged;
- TPTFrameStyle mFrameStyle;
- TPTFramePaintEvent mOnPaint;
- virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
- void __fastcall RepaintNonClient(void);
- virtual void __fastcall PaintNonClient(Graphics::TCanvas* c, const Windows::TRect &aBoundsRect);
- virtual void __fastcall Paint(void);
- __property Classes::TAlignment Alignment = {read=mAlignment, write=SetAlignment, default=2};
- __property bool DefaultDrawing = {read=mDefaultDrawing, write=mDefaultDrawing, default=1};
- __property int FrameSpace = {read=mFrameSpace, write=SetFrameSpace, default=2};
- __property TPTFrameStyle FrameStyle = {read=mFrameStyle, write=SetFrameStyle, default=1};
- __property TPTFramePaintEvent OnPaint = {read=mOnPaint, write=mOnPaint};
- __property Width ;
- __property Height ;
-
- public:
- __fastcall virtual TPTCustomGroup(Classes::TComponent* aOwner);
- void __fastcall EnableAllChildren(bool afEnable);
- public:
- #pragma option push -w-inl
- /* TCustomControl.Destroy */ inline __fastcall virtual ~TPTCustomGroup(void) { }
- #pragma option pop
-
- public:
- #pragma option push -w-inl
- /* TWinControl.CreateParented */ inline __fastcall TPTCustomGroup(HWND ParentWindow) : Controls::TCustomControl(
- ParentWindow) { }
- #pragma option pop
-
- };
-
- #pragma pack(pop)
-
- class DELPHICLASS TPTGroup;
- #pragma pack(push, 4)
- class PASCALIMPLEMENTATION TPTGroup : public TPTCustomGroup
- {
- typedef TPTCustomGroup inherited;
-
- __published:
- __property Alignment ;
- __property DefaultDrawing ;
- __property FrameSpace ;
- __property FrameStyle ;
- __property Align ;
- __property Caption ;
- __property Color ;
- __property Font ;
- __property Enabled ;
- __property ParentColor ;
- __property ParentFont ;
- __property ParentShowHint ;
- __property PopupMenu ;
- __property ShowHint ;
- __property Visible ;
- __property Width ;
- __property Height ;
- __property TabOrder ;
- __property OnClick ;
- __property OnDblClick ;
- __property OnMouseDown ;
- __property OnMouseMove ;
- __property OnMouseUp ;
- __property OnEnter ;
- __property OnExit ;
- __property OnPaint ;
- __property Anchors ;
- __property BiDiMode ;
- __property BorderWidth ;
- __property Constraints ;
- __property ParentBiDiMode ;
- __property UseDockManager ;
- __property OnCanResize ;
- __property OnConstrainedResize ;
- public:
- #pragma option push -w-inl
- /* TPTCustomGroup.Create */ inline __fastcall virtual TPTGroup(Classes::TComponent* aOwner) : TPTCustomGroup(
- aOwner) { }
- #pragma option pop
-
- public:
- #pragma option push -w-inl
- /* TCustomControl.Destroy */ inline __fastcall virtual ~TPTGroup(void) { }
- #pragma option pop
-
- public:
- #pragma option push -w-inl
- /* TWinControl.CreateParented */ inline __fastcall TPTGroup(HWND ParentWindow) : TPTCustomGroup(ParentWindow
- ) { }
- #pragma option pop
-
- };
-
- #pragma pack(pop)
-
- class DELPHICLASS TPTCustomFrame;
- #pragma pack(push, 4)
- class PASCALIMPLEMENTATION TPTCustomFrame : public Controls::TGraphicControl
- {
- typedef Controls::TGraphicControl inherited;
-
- protected:
- Classes::TAlignment mAlignment;
- bool mDefaultDrawing;
- int mFrameSpace;
- TPTFrameStyle mFrameStyle;
- TPTFramePaintEvent mOnPaint;
- void __fastcall SetAlignment(Classes::TAlignment aValue);
- void __fastcall SetFrameSpace(int aValue);
- void __fastcall SetFrameStyle(TPTFrameStyle aValue);
- MESSAGE void __fastcall CMTextChanged(Messages::TMessage &aMsg);
- HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &aMsg);
- HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &aMsg);
- void __fastcall InvalidateInterior(void);
- virtual void __fastcall Paint(void);
- __property Classes::TAlignment Alignment = {read=mAlignment, write=SetAlignment, default=2};
- __property bool DefaultDrawing = {read=mDefaultDrawing, write=mDefaultDrawing, default=1};
- __property int FrameSpace = {read=mFrameSpace, write=SetFrameSpace, default=2};
- __property TPTFrameStyle FrameStyle = {read=mFrameStyle, write=SetFrameStyle, default=2};
- __property Width ;
- __property Height ;
- __property TPTFramePaintEvent OnPaint = {read=mOnPaint, write=mOnPaint};
-
- public:
- __fastcall virtual TPTCustomFrame(Classes::TComponent* aOwner);
- public:
- #pragma option push -w-inl
- /* TGraphicControl.Destroy */ inline __fastcall virtual ~TPTCustomFrame(void) { }
- #pragma option pop
-
- };
-
- #pragma pack(pop)
-
- class DELPHICLASS TPTFrame;
- #pragma pack(push, 4)
- class PASCALIMPLEMENTATION TPTFrame : public TPTCustomFrame
- {
- typedef TPTCustomFrame inherited;
-
- __published:
- __property Alignment ;
- __property DefaultDrawing ;
- __property FrameSpace ;
- __property FrameStyle ;
- __property OnPaint ;
- __property Align ;
- __property Caption ;
- __property Color ;
- __property Font ;
- __property ParentColor ;
- __property ParentFont ;
- __property ParentShowHint ;
- __property PopupMenu ;
- __property ShowHint ;
- __property Visible ;
- __property Width ;
- __property Height ;
- __property OnClick ;
- __property OnDblClick ;
- __property OnMouseDown ;
- __property OnMouseMove ;
- __property OnMouseUp ;
- __property Anchors ;
- __property BiDiMode ;
- __property Constraints ;
- __property ParentBiDiMode ;
- __property OnCanResize ;
- __property OnConstrainedResize ;
- public:
- #pragma option push -w-inl
- /* TPTCustomFrame.Create */ inline __fastcall virtual TPTFrame(Classes::TComponent* aOwner) : TPTCustomFrame(
- aOwner) { }
- #pragma option pop
-
- public:
- #pragma option push -w-inl
- /* TGraphicControl.Destroy */ inline __fastcall virtual ~TPTFrame(void) { }
- #pragma option pop
-
- };
-
- #pragma pack(pop)
-
- //-- var, const, procedure ---------------------------------------------------
- extern PACKAGE void __fastcall DrawLoweredFrame(Graphics::TCanvas* c, const Windows::TRect &r);
- extern PACKAGE void __fastcall DrawRaisedFrame(Graphics::TCanvas* c, const Windows::TRect &r);
- extern PACKAGE void __fastcall DrawDintFrame(Graphics::TCanvas* c, const Windows::TRect &r);
- extern PACKAGE void __fastcall DrawBumpFrame(Graphics::TCanvas* c, const Windows::TRect &r);
- extern PACKAGE void __fastcall DrawSingleFrame(Graphics::TCanvas* c, const Windows::TRect &r);
- extern PACKAGE void __fastcall DrawGroupFrame(Graphics::TCanvas* c, const Windows::TRect &ar, const
- AnsiString caption, Graphics::TColor color, bool enabled);
- extern PACKAGE void __fastcall DrawVertLine(Graphics::TCanvas* c, const Windows::TRect &r, Graphics::TColor
- c1, Graphics::TColor c2);
- extern PACKAGE void __fastcall DrawVertEdge(Graphics::TCanvas* c, const Windows::TRect &r, Graphics::TColor
- c1, Graphics::TColor c2);
- extern PACKAGE void __fastcall DrawHorzLine(Graphics::TCanvas* c, const Windows::TRect &r, Graphics::TColor
- c1, Graphics::TColor c2);
- extern PACKAGE void __fastcall DrawHorzEdge(Graphics::TCanvas* c, const Windows::TRect &r, Graphics::TColor
- c1, Graphics::TColor c2);
- extern PACKAGE void __fastcall DrawFrame(TPTFrameStyle fs, Graphics::TCanvas* c, const Windows::TRect
- &r);
- extern PACKAGE void __fastcall AdjustRectForFrame(TPTFrameStyle fs, Windows::TRect &r);
-
- } /* namespace Uptframe */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Uptframe;
- #endif
- #pragma option pop // -w-
-
- #pragma delphiheader end.
- //-- end unit ----------------------------------------------------------------
- #endif // UPTFrame
-